home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / tifdsp / drs3ss.bas next >
Encoding:
BASIC Source File  |  1993-11-30  |  1.1 KB  |  30 lines

  1. 10 ' SAVE "DRS3SS.BAS",A
  2. 20 CLEAR ,,512,600000,0:DEFINT A-Z:SC=0:MOUSE 0:CONSOLE 0,25,0:WIDTH 80,25:SCREEN@ SC:A=0:C23=25
  3. 30 ON ERROR GOTO *ERR
  4. 40 FILES
  5. 50 ' INPUT "INPUT FILENAME=",N$
  6. 60 N$="FREE6"
  7. 70 OPEN "I",#1,N$+".TIF":CLS:LOCATE 0,24
  8. 80 'OPEN "I",#1,"\FREEWAR3.TIF":CLS:LOCATE 0,24
  9. 90 INPUT R$:IF R$="" THEN DSW=1:GOTO 120 ELSE DSW=0
  10. 100 R=VAL(R$):IF R=0 THEN 120
  11. 110 FOR I=1 TO R:LINE INPUT #1,A$:NEXT I:R$="":DSW=1:A=I-2
  12. 120 WHILE NOT(EOF(1))
  13. 130 LINE INPUT #1,A$:A=A+1
  14. 140 IF R$="" THEN 170
  15. 150 IF DSW=0 AND INSTR(A$,R$)=0 THEN 220 
  16. 160 IF DSW=0 AND INSTR(A$,R$)>0 THEN R$="":DSW=1
  17. 170 LOCATE 0,C23:PRINT USING "#####  ";A;:PRINT A$,"MODE=";SC;':INPUT SS$
  18. 180 LOAD@ A$
  19. 190 IF MOUSE(2,0) THEN WHILE MOUSE(2,0)=-1:WEND:WHILE MOUSE(2,0)=0:WEND
  20. 200 LOCATE 0,C23:PRINT USING "#####  ";A;:PRINT A$,"MODE=";SC;:ORX$=R$:LOCATE ,24':INPUT R$
  21. 210 IF DSW=1 AND R$<>"" THEN DSW=0
  22. 220 WEND
  23. 230 END
  24. 240 *ERR
  25. 250 IF ERL=180 AND ERR<>28 THEN SC=(SC+1) MOD 3:SCREEN@ SC:RESUME 180
  26. 260 IF ERL=180 AND ERR=28 THEN LOCATE 0,C23:PRINT A$,"ERR=";ERR,"ERL=";ERL:FOR J=0 TO 1000:NEXT J:CLS 4:RESUME 190
  27. 270 PRINT ERR,ERL
  28. 280 ON ERROR GOTO 0
  29. 290 END
  30.